-- card: 30264 from stack: in.03 еее
-- bmap block id: 8259
-- flags: 0000
-- background id: 2766
-- name: 
----- HyperTalk script -----
on openCard
  send cardOpened to background
end openCard

on move
  global direction,demonDead,chase,blasting,eDoorOpen
  if direction = "up" then
    go card id 29230
    exit move
  end if
  if direction = "west" then
    if eDoorOpen
    then
    if demonDead then
      go to card id 13815
    else
      go to card id 13242
    end if
  else
    beep
    put "The door is locked.  You can not go that way." into field 3
  end if
  exit move
end if
pass move
end move


on closeCard
  set the cursor to 4
  put "" into field 3
end closeCard

on take
  global object,carried
  -- remember to update carried if you do not pass take
  pass take
end take

on drop
  global object,dropRoom,carried
  -- remember to update carried if you do not pass drop
  pass drop
end drop

on use
  global object,carried,eDoorOpen
  put last word of object into obj
  delete first char of obj
  delete last char of obj
  if obj="key" then
    put "The door leading east is now unlocked and you may pass through." into field 3
    put true into eDoorOpen
    exit use
  end if
  -- update carried if use results in loss of object
  pass use
end use





-- part 16 (button)
-- low flags: 80
-- high flags: 2000
-- rect: left=122 top=230 right=266 bottom=156
-- title width / last selected line: 0
-- icon id / first selected line: 9301 / 9301
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: knife
----- HyperTalk script -----
on mouseUp
  global takeFlag,examFlag,object,cardID
  put the name of the target into object
  if takeFlag = true
  then send take to card id cardID
else put "a knife" into field 3
put false into examFlag
end mouseUp



-- part 17 (button)
-- low flags: 80
-- high flags: 2000
-- rect: left=41 top=225 right=261 bottom=75
-- title width / last selected line: 0
-- icon id / first selected line: 1015 / 1015
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: nodule
----- HyperTalk script -----
on mouseUp
  global takeFlag,examFlag,object,cardID
  put the name of the target into object
  if takeFlag = true
  then send take to card id cardID
else put "a silicon sphere" into field 3
put false into examFlag
end mouseUp



-- part 18 (button)
-- low flags: 80
-- high flags: 2000
-- rect: left=191 top=216 right=252 bottom=225
-- title width / last selected line: 0
-- icon id / first selected line: 14953 / 14953
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: ladder
----- HyperTalk script -----
on mouseUp
  global takeFlag,examFlag,object,cardID
  put the name of the target into object
  if takeFlag = true
  then send take to card id cardID
else put "a rope ladder" into field 3
put false into examFlag
end mouseUp



-- part 19 (button)
-- low flags: 80
-- high flags: 2000
-- rect: left=55 top=153 right=189 bottom=89
-- title width / last selected line: 0
-- icon id / first selected line: 1019 / 1019
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: bomb
----- HyperTalk script -----
on mouseUp
  global takeFlag,examFlag,object,cardID
  put the name of the target into object
  if takeFlag = true
  then send take to card id cardID
else put "a time bomb." into field 3
put false into examFlag
end mouseUp



-- part 20 (button)
-- low flags: 80
-- high flags: 2000
-- rect: left=20 top=187 right=223 bottom=54
-- title width / last selected line: 0
-- icon id / first selected line: 24317 / 24317
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: key
----- HyperTalk script -----
on mouseUp
  global takeFlag,examFlag,object,cardID
  put the name of the target into object
  if takeFlag = true
  then send take to card id cardID
else put "a key" into field 3
put false into examFlag
end mouseUp



-- part 21 (button)
-- low flags: 80
-- high flags: 2000
-- rect: left=185 top=125 right=161 bottom=219
-- title width / last selected line: 0
-- icon id / first selected line: 7012 / 7012
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: gem
----- HyperTalk script -----
on mouseUp
  global takeFlag,examFlag,object,cardID
  put the name of the target into object
  if takeFlag = true
  then send take to card id cardID
else put "a glowing gem" into field 3
put false into examFlag
end mouseUp



-- part 22 (button)
-- low flags: 80
-- high flags: 2000
-- rect: left=6 top=224 right=260 bottom=40
-- title width / last selected line: 0
-- icon id / first selected line: 23078 / 23078
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: orb
----- HyperTalk script -----
on mouseUp
  global takeFlag,examFlag,object,cardID
  put the name of the target into object
  if takeFlag = true
  then send take to card id cardID
else put "a crystal orb" into field 3
put false into examFlag
end mouseUp



-- part 33 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=93 top=0 right=20 bottom=159
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 
----- HyperTalk script -----
on mouseUp
  global examFlag,direction,cardID
  if examFlag then
    put "a shaft leading up" into field 3
    put false into examFlag
  else
    put false into takeFlag
    put "up" into direction
    send move to card id cardID
  end if
end mouseUp



-- part 34 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=11 top=93 right=187 bottom=47
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 
----- HyperTalk script -----
on mouseUp
  global examFlag,direction,cardID,eDoorOpen,demonDead,takeFlag
  if examFlag then
    put "a barred door leading west." into field 3
    if eDoorOpen
    then put "  The door is unlocked!" after field 3
  else put "  The door is locked!" after field 3
  if demonDead=false then
    put "  Peering through the bars you can see the orb of power " after field 3
    put "in the dimly lit room beyond!" after field 3
  end if
  put false into examFlag
else
  if takeFlag then
    put "You can't take the door." into field 3
    put false into takeFlag
  else
    put "west" into direction
    send move to card id cardID
  end if
end if
end mouseUp



-- part 36 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=113 top=20 right=130 bottom=146
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 
----- HyperTalk script -----
on mouseUp
  global examFlag,takeFlag,direction,cardID
  if takeFlag then
    put "You can't take the ladder -- it is attached at the top." into field 3
    put false into takeFlag
    exit mouseUp
  end if
  if examFlag then
    put "A rope ladder leading into the shaft above." into field 3
    put false into examFlag
    exit mouseUp
  end if
  put "up" into direction
  send move to card id cardID
end mouseUp



-- part 43 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=101 top=174 right=218 bottom=180
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 
----- HyperTalk script -----
on mouseUp
  global examFlag,takeFlag,direction,cardID
  if takeFlag then
    put "Look, I don't want to get gross here, but the body is badly decayed.  You really don't want it." into field 3
    put false into takeFlag
  else
    put "A body.  Quite dead." into field 3
    put false into examFlag
  end if
end mouseUp



-- part contents for background part 25
----- text -----
Round Room
(looking north)

-- part contents for background part 24
----- text -----
You are in a round room.  There is a doorway to the west with a door made of massive iron bars.  There is a hole in the ceiling.  A rope ladder hangs down from the opening.  In the center of the floor is the body of an unsuccessful adventurer who appears to have broken his neck.  It looks like it has been there quite some time (yeech).


-- part contents for background part 36
----- text -----
1